home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / Xifa Gku 3.xpl < prev    next >
Text File  |  2000-08-07  |  2KB  |  58 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Instant Messaging\Gku"
  5. "NAME"="Skin Options"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Current Skin"
  8. "DESCRIPTION 1"="The skin option is the name of the skin file without the '.ini'. These are usually found in the <Gku Install Dir>\Skins\. However, they can be placed elsewhere outside of the install directory."
  9. "DESCRIPTION 2"="The default skin is 'Default'."
  10. "DESCRIPTION 3"="Gku may be obtained at http://lockergnome.virtualave.net"
  11. "COMMENT 1"="For more information, go to http://www.xteq.com."
  12. "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
  13. "COMMENT 3"="Thanks also to Vex, the maker of Gku."
  14. "VERSION"="3.00"
  15. "AUTHOR"="Vex Bit <vex@xifa.fsnet.co.uk>"
  16. "COPYRIGHT"="Copyright ⌐ 1999-2000, Xifa Technologies, Inc."
  17.  
  18. 'Declaration of some constants
  19. sFile=""
  20. sSec="GUI"
  21. sV1="CurrentSkin"
  22.  
  23. 'Called when the Plugin is started
  24. SUB Plugin_Initialize
  25.  Call GetGkuFile
  26.  
  27.  If FileExists(sFile) then
  28.  
  29.     s=iniReadValue(sFile,sSec,sV1)
  30.     SetUiElement 1,s
  31.  
  32.  else
  33.     Call Disable()
  34.  End if
  35.  
  36. END SUB
  37.  
  38. 'Called when the Plugin should validate the Data the user has entered
  39. SUB Plugin_CheckData(ElementIndex)
  40. END SUB
  41.  
  42. 'Called when the Plugin should apply the changes
  43. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  44.     s=GetUIElement(1)
  45.     Call iniWriteValue(sFile,sSec,sV1,s)
  46.  
  47. END SUB
  48.  
  49. 'Called when the Plugin is about to be removed from memory
  50. SUB Plugin_Terminate
  51. END SUB
  52.  
  53. 'User defined SUB's
  54. SUB GetGKUFile
  55.    s=iniReadValue("WIN.INI","GKU","InstallDir")
  56.    sFile=s & "\gku.ini"
  57. END SUB
  58.